; Music of Beach Buggy Simulator (1987) (Sysoft)
; Ripped by Megachur the 27/03/2009

	write "BEACHBUS.BIN"

music_date_rip	equ &1b39
music_adr	equ &6500
first_theme	equ 0
last_theme	equ 0	; 0 -> 0

	read "music_header_v1_0.asm"

	ld a,#01
	ld (l6dd9),a
	call l6953
.l6508
	ld a,(l6dda)
	and a
	jp z,l6508
	ret
.l6510
	db #16,#19,#1d,#22,#12,#16,#19,#1e
	db #14,#18,#1b,#20
.l6522 equ $ + 6
.l651c
	dw l6562,l6571,l658d,l65ae
	dw l65c4,l664a,l66c8,l673a
	dw l677f,l67a5,l67e5,l67f7
	dw l683d,l683d,l683d,l683d
.l6542 equ $ + 6
	dw l683d,l683d,l683d,l6847
	dw l6866,l68d7,l6912,l6912
.l6552 equ $ + 6
	dw l6912,l6912,l6912,l6912
	dw l6953,l6953,l6953,l6953
	dw l6953,l6953,l6953
.l6562
	db #10,#10,#04,#03,#04,#03,#05,#05
.l6571 equ $ + 7
	db #04,#03,#08,#08,#04,#03,#00,#10
	db #10,#01,#01,#01,#01,#02,#01,#01
	db #01,#01,#02,#06,#06,#07,#01,#01
	db #01,#01,#02,#09,#09,#01,#01,#01
.l658d equ $ + 3
	db #01,#02,#00,#01,#01,#01,#01,#01
	db #01,#01,#01,#02,#01,#01,#01,#01
	db #02,#01,#01,#01,#01,#01,#01,#01
	db #01,#02,#03,#03,#01,#01,#01,#01
.l65ae equ $ + 4
.l65ad equ $ + 3
.l65ac equ $ + 2
	db #02,#00,#01,#00,#c8,#0d,#c7,#03
	db #c3,#01,#f3,#01,#f3,#02,#f3,#02
	db #f3,#02,#f3,#02,#f3,#03,#f3,#03
.l65c4 equ $ + 2
	db #f3,#00,#c4,#c8,#0e,#c7,#01,#0f
	db #16,#1b,#0f,#16,#1b,#16,#0d,#0f
	db #16,#1b,#0f,#16,#1b,#16,#0f,#12
	db #16,#0d,#1e,#22,#1e,#19,#12,#0d
	db #11,#14,#19,#1d,#19,#14,#11,#0f
	db #16,#1b,#0f,#16,#1b,#16,#0d,#0f
	db #16,#1b,#0f,#16,#1b,#16,#0f,#12
	db #16,#0d,#1e,#22,#1e,#19,#12,#14
	db #18,#1b,#20,#24,#20,#1b,#18,#0f
	db #16,#1b,#0f,#16,#1b,#16,#0d,#0f
	db #16,#1b,#0f,#16,#1b,#16,#0f,#12
	db #16,#0d,#1e,#22,#1e,#19,#12,#0d
	db #11,#14,#19,#1d,#19,#14,#11,#0f
	db #16,#1b,#0f,#16,#1b,#16,#0d,#0f
	db #16,#1b,#0f,#16,#1b,#16,#0f,#12
	db #16,#0d,#1e,#22,#1e,#19,#12,#11
	db #1d,#1d,#11,#1d,#11,#1d,#1d,#00
.l664a
	db #c8,#0c,#c7,#06,#c6,#c2,#31,#c2
	db #32,#c2,#33,#33,#f4,#33,#31,#2e
	db #f1,#31,#f1,#33,#f1,#f6,#38,#3a
	db #31,#f1,#33,#f1,#35,#33,#31,#f1
	db #c2,#31,#c2,#32,#c2,#33,#33,#f4
	db #33,#31,#2e,#f1,#31,#f1,#33,#f1
	db #f2,#36,#38,#3a,#2a,#2c,#2e,#c2
	db #2a,#c2,#2b,#c2,#2c,#2c,#2c,#2c
	db #f2,#c2,#31,#c2,#32,#c2,#33,#33
	db #f4,#33,#31,#2e,#f1,#31,#f1,#33
	db #f1,#f6,#38,#3a,#31,#f1,#33,#f1
	db #35,#33,#31,#f1,#c2,#31,#c2,#32
	db #c2,#33,#33,#f4,#33,#31,#2e,#f1
	db #31,#f1,#33,#f1,#f2,#36,#38,#3a
	db #2a,#2c,#2e,#c2,#27,#c2,#28,#c2
.l66c8 equ $ + 6
	db #29,#29,#29,#29,#f2,#00,#c6,#c8
	db #0f,#c7,#01,#2e,#3a,#38,#35,#38
	db #35,#33,#35,#2e,#f5,#22,#24,#25
	db #20,#19,#25,#f2,#24,#25,#24,#25
	db #24,#22,#f1,#20,#f2,#2e,#3a,#38
	db #35,#38,#35,#33,#35,#2e,#f5,#22
	db #24,#25,#20,#27,#29,#27,#25,#20
	db #19,#20,#2c,#27,#20,#2c,#27,#20
	db #27,#2e,#3a,#38,#35,#38,#35,#33
	db #35,#2e,#f5,#22,#24,#25,#20,#19
	db #25,#f2,#24,#25,#24,#25,#24,#22
	db #f1,#20,#f2,#2e,#3a,#38,#35,#38
	db #35,#33,#35,#2e,#f5,#22,#24,#25
	db #20,#27,#29,#27,#25,#20,#19,#20
	db #2c,#27,#20,#2c,#27,#20,#27,#00
.l673a
	db #c8,#0e,#c7,#01,#c6,#25,#22,#19
	db #25,#f1,#22,#20,#22,#25,#f1,#22
	db #f1,#20,#22,#f1,#20,#25,#20,#1e
	db #25,#f1,#22,#20,#29,#f2,#27,#f1
	db #25,#22,#20,#14,#25,#22,#19,#25
	db #f1,#20,#22,#20,#25,#20,#22,#1d
	db #20,#25,#22,#20,#25,#22,#1e,#25
	db #f1,#27,#2a,#29,#f1,#27,#25,#22
.l677f equ $ + 5
	db #29,#27,#25,#22,#00,#c8,#0d,#c7
	db #01,#c4,#16,#1d,#22,#16,#1d,#22
	db #16,#1d,#12,#19,#1e,#12,#19,#1e
	db #12,#19,#12,#19,#1e,#12,#19,#1e
	db #12,#19,#14,#1b,#20,#14,#1b,#20
.l67a5 equ $ + 3
	db #1b,#14,#00,#29,#19,#1d,#29,#f1
	db #19,#24,#19,#29,#f1,#19,#f1,#24
	db #19,#f1,#24,#29,#24,#22,#29,#f1
	db #19,#24,#2c,#f2,#2a,#f1,#29,#19
	db #24,#18,#29,#19,#1d,#29,#f1,#24
	db #19,#24,#29,#24,#19,#20,#24,#29
	db #19,#24,#29,#19,#22,#29,#f1,#2a
	db #2e,#2c,#f1,#2a,#29,#19,#2c,#2a
.l67e5 equ $ + 3
	db #29,#19,#00,#c8,#0d,#c7,#0a,#c5
	db #16,#f7,#f8,#14,#f7,#f8,#14,#f7
.l67f7 equ $ + 5
	db #f8,#12,#f7,#f8,#00,#c8,#0f,#c7
	db #01,#c4,#16,#16,#f1,#16,#16,#f1
	db #16,#16,#f1,#16,#16,#f1,#16,#16
	db #f1,#16,#14,#14,#f1,#14,#14,#f1
	db #14,#14,#f1,#14,#14,#f1,#14,#14
	db #f1,#14,#14,#14,#f1,#14,#14,#f1
	db #14,#14,#f1,#14,#14,#f1,#14,#14
	db #f1,#14,#12,#12,#f1,#12,#12,#f1
	db #12,#12,#f1,#12,#12,#f1,#12,#12
.l683d equ $ + 3
	db #f1,#12,#00,#f8,#f8,#f8,#f8,#f8
.l6847 equ $ + 5
	db #f8,#f8,#f8,#c0,#00,#c8,#0f,#c7
	db #03,#0a,#f2,#08,#f2,#0d,#f1,#06
	db #f3,#12,#f1,#01,#03,#06,#f2,#0a
	db #f2,#0d,#f1,#08,#f1,#0f,#11,#0f
.l6866 equ $ + 4
	db #0d,#0a,#08,#00,#03,#f2,#01,#f2
	db #03,#f1,#0f,#0d,#16,#f1,#01,#f1
	db #03,#05,#06,#f3,#08,#0a,#06,#f1
	db #01,#f1,#08,#01,#0d,#08,#01,#f1
	db #03,#f2,#01,#f2,#03,#f1,#0f,#0d
	db #16,#f1,#01,#f1,#03,#05,#06,#f3
	db #08,#0a,#06,#f1,#08,#f1,#14,#08
	db #08,#08,#14,#f1,#03,#f2,#01,#f2
	db #03,#f1,#0f,#0d,#16,#f1,#01,#f1
	db #03,#05,#06,#f3,#08,#0a,#06,#f1
	db #01,#f1,#08,#01,#0d,#08,#01,#f1
	db #03,#f2,#01,#f2,#03,#f1,#0f,#0d
	db #16,#f1,#01,#f1,#03,#05,#06,#f3
	db #08,#0a,#06,#f1,#05,#11,#11,#05
.l68d7 equ $ + 5
	db #11,#05,#11,#11,#00,#0a,#f1,#05
	db #f1,#11,#f1,#0a,#f1,#0f,#f2,#0f
	db #f2,#11,#f1,#08,#f1,#03,#f1,#0f
	db #f1,#08,#f1,#0d,#f2,#0d,#f2,#0f
	db #f1,#08,#f1,#03,#f1,#0f,#f1,#08
	db #f1,#0d,#f2,#0d,#f2,#0f,#f1,#06
	db #f1,#12,#f1,#0d,#f1,#06,#f1,#0d
	db #0a,#06,#0c,#0c,#f1,#0d,#f1,#00
.l6912
	db #1f,#ff,#ff,#ff,#01,#ff,#ff,#ff
	db #1f,#ff,#ff,#ff,#01,#ff,#ff,#ff
	db #1f,#ff,#ff,#ff,#01,#ff,#ff,#ff
	db #1f,#ff,#ff,#ff,#01,#ff,#1f,#ff
	db #1f,#ff,#ff,#ff,#01,#ff,#ff,#ff
	db #1f,#ff,#ff,#ff,#01,#ff,#ff,#ff
	db #1f,#ff,#ff,#ff,#01,#1f,#ff,#01
	db #01,#01,#ff,#0f,#0f,#1f,#1f,#1f
	db #00
.l6953
	di
	ld hl,#0038
	ld de,l697a
	ld bc,#0003
	ldir
	ld a,#c3
	ld (#0038),a
	ld hl,l6987
	ld (#0039),hl
	ei
	ret
	di
	ld hl,l697a
	ld de,#0038
	ld bc,#0003
	ldir
	ei
	ret
.l697a
	db #c9,#00,#00
;
.stop_music
;
	xor a
	ld (l6dda),a
	ld (l6dd9),a
	jp l6c99
;
.play_music_interrupt
.l6987
;
	di
	push af
	push bc
	push de
	push hl
	push ix
	ld a,(l6dd9)
	and a
	jp nz,l69a4
	ld a,(l6dda)
	and a
	jp nz,l6a2b
.l699c
	pop ix
	pop hl
	pop de
	pop bc
	pop af
	ei
	ret
;
.real_init_music
;
.l69a4
	ld a,#01
	ld (l6dda),a
	ld hl,l651c
	ld ix,l6dfd
	ld b,#03
	xor a
	ld (l6de1),a
.l69b6
	ld (ix+#05),a
	ld (ix+#0d),a
	ld (ix+#0c),a
	ld (ix+#02),a
	ld (ix+#03),a
	push af
	ld a,(hl)
	ld e,a
	ld (ix+#0a),a
	inc hl
	ld a,(hl)
	ld d,a
	ld (ix+#0b),a
	inc hl
	push hl
	push bc
	ld a,(de)
	inc de
	ld (ix+#06),e
	ld (ix+#07),d
	call l6bea
	ld hl,l6de1
	inc (hl)
	pop bc
	pop hl
	pop af
	ld de,#0010
	add ix,de
	djnz l69b6
	ld (l6ddb),a
	ld (l6dde),a
	ld (l6ddf),a
	ld (l6ddc),a
	ld (l6df1),a
	ld (l6dd9),a
	ld hl,l6e27
	ld a,(hl)
	inc hl
	or (hl)
	ld (l6de3),a
	ld b,#38
	jp nz,l6a0f
	ld b,#3c
.l6a0f
	ld a,b
	ld (l6de2),a
	ld a,(l6dee)
	dec a
	ld (l6def),a
	call l6c8d
	ld hl,l65ad
	ld (l6df7),hl
	dec hl
	ld a,(hl)
	call l6ae1
	jp l699c
;
;.play_music
;
.l6a2b
	ld a,(l6df9)
	and a
	jp z,l6a5b
	ld a,(l6dfa)
	inc a
	ld (l6dfa),a
	ld hl,l6dfb
	cp (hl)
	jp nz,l6a5b
	xor a
	ld (l6dfa),a
	ld bc,(l6dff)
	ld a,(l6dfc)
	xor #01
	ld (l6dfc),a
	jp z,l6a57
	srl b
	rr c
.l6a57
	xor a
	call l6c73
.l6a5b
	ld a,(l6def)
	inc a
	ld (l6def),a
	cp #06
	jp z,l6a99
.l6a67
	ld hl,l6dee
	cp (hl)
	jp nz,l699c
	xor a
	ld (l6def),a
	ld a,(l6df1)
	inc a
	ld (l6df1),a
	ld hl,l6df0
	cp (hl)
	jp z,l6a8c
	call l6cc8
	call l6d0e
	call l6d87
	jp l699c
.l6a8c
	call l6db1
	call l6aa6
	xor a
	ld (l6df1),a
	jp l699c
.l6a99
	ld c,#38
	ld a,#07
	call l6caa
	ld a,(l6def)
	jp l6a67
.l6aa6
	ld a,(l6df2)
	and a
	ret z
.l6aab
	ld hl,(l6df5)
	ld a,(hl)
	inc hl
	ld (l6df5),hl
	inc a
	ret z
	dec a
	jp nz,l6ad4
	ld hl,(l6df7)
.l6abc
	ld a,(hl)
	inc hl
	ld (l6df7),hl
	and a
	jp z,l6acb
	call l6ae1
	jp l6aab
.l6acb
	ld hl,l65ac
	ld (l6df7),hl
	jp l6abc
.l6ad4
	ld c,a
	ld a,#06
	call l6caa
	ld c,#18
	ld a,#07
	jp l6caa
.l6ae1
	ld hl,l6552
.l6ae4
	dec a
	jp z,l6aed
	inc hl
	inc hl
	jp l6ae4
.l6aed
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (l6df5),de
	ret
.l6af5
	ld a,(ix+#05)
	and a
	jp z,l6b27
	dec (ix+#05)
	ret nz
	jp l6b27
.l6b03
	ld l,(ix+#06)
	ld h,(ix+#07)
	ld a,(hl)
	inc hl
	ld (ix+#06),l
	ld (ix+#07),h
	and a
	jp nz,l6b24
	ld l,(ix+#0a)
	ld h,(ix+#0b)
	ld (ix+#06),l
	ld (ix+#07),h
	jp l6b03
.l6b24
	call l6bea
.l6b27
	ld l,(ix+#08)
	ld h,(ix+#09)
	ld a,(hl)
	ld c,a
	inc hl
	ld (ix+#08),l
	ld (ix+#09),h
	and a
	jp z,l6b03
	bit 7,a
	jp nz,l6b52
	dec c
	call l6c0a
	ld c,(ix+#0e)
	ld a,c
	ld (ix+#01),a
	ld a,(l6de1)
	add #08
	jp l6caa
.l6b52
	cp #c0
	jp z,l6b63
	cp #c1
	jp nz,l6b6b
	xor a
	ld (l6df2),a
	jp l6b27
.l6b63
	ld a,#01
	ld (l6df2),a
	jp l6b27
.l6b6b
	cp #c2
	jp nz,l6b7d
	ld a,#01
	ld (l6df4),a
	ld a,#03
	ld (l6df3),a
	jp l6b27
.l6b7d
	cp #c3
	jp nz,l6b8a
	ld a,#01
	ld (l6de5),a
	jp l6b27
.l6b8a
	cp #c4
	jp nz,l6b96
	xor a
	ld (l6de5),a
	jp l6b27
.l6b96
	cp #c5
	jp nz,l6ba3
	ld a,#01
	ld (l6df9),a
	jp l6b27
.l6ba3
	cp #c6
	jp nz,l6baf
	xor a
	ld (l6df9),a
	jp l6b27
.l6baf
	cp #c7
	jp nz,l6bc1
	call l6bda
	ld (ix+#00),a
	xor a
	ld (ix+#0d),a
	jp l6b27
.l6bc1
	cp #c8
	jp nz,l6bd3
	call l6bda
	ld (ix+#0e),a
	ld (ix+#0d),#00
	jp l6b27
.l6bd3
	ld a,c
	and #0f
	ld (ix+#05),a
	ret
.l6bda
	ld l,(ix+#08)
	ld h,(ix+#09)
	ld a,(hl)
	ld c,a
	inc hl
	ld (ix+#08),l
	ld (ix+#09),h
	ret
.l6bea
	ld hl,l6522
	ld b,a
	ld a,(l6de1)
	cp #02
	ld a,b
	jp nz,l6bfa
	ld hl,l6542
.l6bfa
	dec a
	ld c,a
	ld b,#00
	add hl,bc
	add hl,bc
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (ix+#08),e
	ld (ix+#09),d
	ret
.l6c0a
	ld a,(l6de1)
	cp #01
	jp nz,l6c41
	ld a,(l6de5)
	and a
	jp z,l6c41
	ld hl,l6510
	ld b,#00
	sla c
	sla c
	add hl,bc
	ld de,l6de6
	ld b,#04
.l6c28
	push bc
	ld c,(hl)
	inc hl
	dec c
	call l6c80
	ld a,c
	ld (de),a
	inc de
	ld a,b
	ld (de),a
	inc de
	pop bc
	djnz l6c28
	ld bc,(l6de6)
	ld a,#01
	jp l6c6d
.l6c41
	call l6c80
	ld a,(l6de1)
	cp #01
	jp nz,l6c5b
	ld a,(l6dff)
	cp c
	jp nz,l6c5b
	ld a,(l6e00)
	cp b
	jp nz,l6c5b
	dec bc
.l6c5b
	ld a,(l6de1)
	and a
	jp nz,l6c6d
	ld a,(l6df4)
	and a
	jp z,l6c6d
	inc bc
	inc bc
	inc bc
	xor a
.l6c6d
	ld (ix+#02),c
	ld (ix+#03),b
.l6c73
	add a
	push bc
	push af
	call l6caa
	pop af
	pop bc
	inc a
	ld c,b
	jp l6caa
.l6c80
	push hl
	ld hl,l6e2d
	ld b,#00
	add hl,bc
	add hl,bc
	ld c,(hl)
	inc hl
	ld b,(hl)
	pop hl
	ret
.l6c8d
	call l6c99
	ld a,(l6de2)
	ld c,a
	ld a,#07
	jp l6caa
.l6c99
	ld bc,#000d
.l6c9c
	ld a,b
	push bc
	call l6caa
	pop bc
	dec b
	jp p,l6c9c
	ld a,#07
	ld c,#3f
.l6caa
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	ret
.l6cc8
	ld ix,l6dfd
	xor a
	ld (l6de1),a
	call l6ced
	ld ix,l6e0d
	ld a,#01
	ld (l6de1),a
	call l6ced
	ld a,(l6de3)
	and a
	ret z
	ld ix,l6e1d
	ld a,#02
	ld (l6de1),a
.l6ced
	ld a,(ix+#0d)
	inc a
	ld (ix+#0d),a
	cp (ix+#00)
	ret c
	ld (ix+#0d),#00
	ld a,(ix+#01)
	sub #01
	ret c
	ld (ix+#01),a
	ld c,a
	ld a,(l6de1)
	add #08
	jp l6caa
.l6d0e
	ld a,(l6df3)
	sub #01
	jp nc,l6d1d
	xor a
	ld (l6df4),a
	jp l6d2d
.l6d1d
	ld (l6df3),a
	ld bc,(l6dff)
	dec bc
	ld (l6dff),bc
	xor a
	call l6c73
.l6d2d
	ld a,(l6de5)
	and a
	jp z,l6d51
	ld a,(l6de4)
	inc a
	and #03
	ld (l6de4),a
	ld c,a
	ld b,#00
	ld hl,l6de6
	add hl,bc
	add hl,bc
	ld c,(hl)
	inc hl
	ld b,(hl)
	ld (l6e0f),bc
	ld a,#01
	call l6c73
.l6d51
	ld a,(l6ddc)
	inc a
	ld (l6ddc),a
	ld hl,l6ddd
	cp (hl)
	ret c
	xor a
	ld (l6ddc),a
	ld a,(l6ddb)
	xor #01
	ld (l6ddb),a
	ld bc,(l6dff)
	ld de,(l6e0f)
	and a
	jp z,l6d7a
	dec bc
	dec de
	jp l6d7c
.l6d7a
	inc bc
	inc de
.l6d7c
	xor a
	push de
	call l6c73
	pop bc
	ld a,#01
	jp l6c73
.l6d87
	ld a,(l6de3)
	and a
	ret z
	ld a,(l6ddf)
	inc a
	ld (l6ddf),a
	ld hl,l6de0
	cp (hl)
	ret c
	xor a
	ld (l6ddf),a
	ld bc,(l6e1f)
	ld a,(l6dde)
	xor #01
	ld (l6dde),a
	ld a,#02
	jp nz,l6c73
	inc bc
	jp l6c73
.l6db1
	ld ix,l6dfd
	xor a
	ld (l6de1),a
	call l6af5
	ld ix,l6e0d
	ld a,#01
	ld (l6de1),a
	call l6af5
	ld a,(l6de3)
	and a
	ret z
	ld ix,l6e1d
	ld a,#02
	ld (l6de1),a
	jp l6af5
.l6de0 equ $ + 7
.l6ddf equ $ + 6
.l6dde equ $ + 5
.l6ddd equ $ + 4
.l6ddc equ $ + 3
.l6ddb equ $ + 2
.l6dda equ $ + 1
.l6dd9
	db #01,#00,#00,#00,#04,#00,#00,#01
.l6de6 equ $ + 5
.l6de5 equ $ + 4
.l6de4 equ $ + 3
.l6de3 equ $ + 2
.l6de2 equ $ + 1
.l6de1
	db #00,#38,#00,#00,#00,#00,#00,#00
.l6df0 equ $ + 7
.l6def equ $ + 6
.l6dee equ $ + 5
	db #00,#00,#00,#00,#00,#06,#00,#06
.l6df7 equ $ + 6
.l6df5 equ $ + 4
.l6df4 equ $ + 3
.l6df3 equ $ + 2
.l6df2 equ $ + 1
.l6df1
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6e00 equ $ + 7
.l6dff equ $ + 6
.l6dfd equ $ + 4
.l6dfc equ $ + 3
.l6dfb equ $ + 2
.l6dfa equ $ + 1
.l6df9
	db #00,#00,#0a,#00,#03,#00,#00,#00
	db #01,#00,#00,#00,#00,#00,#00,#00
.l6e0f equ $ + 6
.l6e0d equ $ + 4
	db #00,#00,#0d,#00,#01,#00,#00,#00
	db #01,#00,#00,#00,#00,#00,#00,#00
.l6e1f equ $ + 6
.l6e1d equ $ + 4
	db #00,#00,#0d,#00,#02,#00,#00,#00
.l6e27 equ $ + 6
	db #01,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#0f,#00
.l6e2d
	dw #03bc,#0386,#0353,#0324
	dw #02f6,#02cc,#02a4,#027e
	dw #025a,#0238,#0218,#01fa
	dw #01de,#01c3,#01aa,#0192
	dw #017b,#0166,#0152,#013f
	dw #012d,#011c,#010c,#00fd
	dw #00ef,#00e1,#00d5,#00c9
	dw #00be,#00b3,#00a9,#009f
	dw #0096,#008e,#0086,#007f
	dw #0077,#0071,#006a,#0064
	dw #005f,#0059,#0054,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0038,#0035,#0032
	dw #002f,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	db #00,#00
;
.play_music	; added by Megachur
;
	call play_music_interrupt
	call play_music_interrupt
	call play_music_interrupt
	call play_music_interrupt
	call play_music_interrupt
	jp play_music_interrupt
;
.init_music	; added by Megachur
;
	ld a,#01
	ld (l6dd9),a
	ret
;
.game_name
	db "Beach Buggy Simulator",0
.game_year
	db "1987",0
.game_publisher
	db "Sysoft",0
.music_author
	db "",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
